Option Explicit
Sub F_Sample030()
   'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
   'Microsoft ADO Ext. 2.1 for DDL and Security ]wޥζ
   'ոF_Data.mdb F_Qry02d
    Dim myCon     As New ADODB.Connection
    Dim myCat     As New ADOX.Catalog
    Dim myPrmAr    As Variant
    Dim myFileName As String
    Dim myQryName  As String
    Dim myKey      As String
    Dim i          As Long
    myFileName = "F_Data.mdb"                          'n檺ɮ
    myQryName = "F_Qry02"                              'n檺d
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myCat.ActiveConnection = myCon
    myPrmAr = Array(60)                                'wѼ(Iborder)
    On Error Resume Next
   'RJs
    myCat.Tables.Delete "F_Tbl02"
    On Error GoTo 0
    With myCat.Procedures(myQryName).Command
        If IsArray(myPrmAr) Then
            For i = 0 To UBound(myPrmAr)
                .Parameters(i) = myPrmAr(i)
            Next
        End If
        .Execute
    End With
    myCon.Close
    MsgBox myPrmAr(0) & "HWCwgbF_Tbl02s@XӤF"
    Set myCat = Nothing                                        '
    Set myCon = Nothing
End Sub
